extern int sscal_(integer *n, real *sa, real *sx, integer *incx);
